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FOREWORD 


This is one of three technical reports being 
published simultaneously. The others are the MILITRAN 
Operations Manual for IBM 7090-709** (Technical Documentary 
Report No. ESD-TDR-64-389) and the MILITRAN Programming 
Manual (Technical Documentary Report No. ESD-TDR-64-320). 
The three reports constitute a complete description and 
instructions for using the MILITRAN language in computer 
programming of simulation problems. 

The MILITRAN 7090-7094 Processor, which is used 
to compile a problem written in MILITRAN source language 
into a machine language program, will be available to pro¬ 
spective users. Pending final arrangements, requests for 
information about the MILITRAN Processor should be sent to 
the Office of Naval Research (Code 491). 

This report was prepared by the Systems Research 
Group, Inc.> under Contract Nonr-2936(00), which was initi 
ated by the Naval Analysis Group, Office of Naval Research 
and has been Jointly supported by the Office of Naval 
Research and the Electronic Systems Division, Air Force 
Systems Command. 







ABSTRACT 


MILITRAN Is an algorithmic computer language 
specifically oriented to the problems encountered in 
simulation programming. In addition to providing over¬ 
all flexibility in expressing complex procedures, the 
language contains features which greatly simplify the 
maintainence of status lists, handling of numeric and 
non-numeric data, and sequencing of events in simulated 
time. 

This report is intended as a reference summary 
for those already familiar with MILITRAN. 


REVIEW AND APPROVAL 


This Technical Documentary Report has been 
reviewed by the Electronic Systems Division, U. S. Air 
Force Systems Command, and is approved for general distribu¬ 


tion. 




J. B. CURTIS 
2 n< * Lt., USAF 
PROJECT OFFICER 
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INTRODUCTION 

This manual la designed as a reference for 
programmers working In MILITRAN. The description of the 
MILITRAN language herein Is more concise than that given 
In the MILITRAN PROGRAMMING MANUAL, with which the reader 
Is assumed to be familiar. 

Various sections of this manual outline GENERAL 
LANGUAGE CHARACTERISTICS, statements which define program 
STRUCTURE, characteristics of EXPRESSIONS, and statements 
whose major functions Include PROCESSING, INPUT OUTPUT, 
CONTROL, and operation of the COMPILER. 

A summary of all MILITRAN forms Is Included In 


the appendix. 
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GENERAL LANGUAGE CHARACTERISTICS 

A MILITRAN source program is a series of 

MILITRAN statements which specify a sequence of operations 

to be performed by a digital computer. A program is either 

a main program or a procedure. A main program initiates 

processing and may be devised in such a way as to require 

no procedures, A procedure cannot initiate processing and 

must receive a signal from either a main program or another 

procedure before its operation sequenoe oan be executed. 

« 

A MILITRAN statement is a string of elements 
arranged in a prescribed order which specifies one or more 
of the following characteristics of the program: 

1. STRUCTURE of the program 
or its elements; 

2. PROCESSING to be performed 
within the computer; 

3. INPUT/OUTPUT, or exchange 

of data between the computer 
and its external storage devices; 

4. CONTROL of the sequence in 
which various operations are 
to be performed; and 
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5. COMPILER instructions, or 
specification of the manner 
in which the translation from 
MILITRAN to machine language 
is to be performed. 

The elements which combine to form MILITRAN 
statements are names, constants, punctuation marks, 
statement type identifiers, operators, and mnemonic 
delimiters. These elements are in turn made up of 
characters, which are the basifc units of any language. 

Characters 

The MILITRAN Basic Language is expressed in terms 
of the following character set: 

ABCDEPGHIJKLMN0PQRSTUVW 
XYZ 0123456789.0,-+-*/ 

The character "blank" is normally not significant 
in the language. Except where specifically noted in this 
summary, blanks may be used in any part of a statement with¬ 
out any effect on the statement. 

"Alphabetic characters" include the letters A through 
Z; "numeric characters" include the digits 0 through 9; alpha¬ 
meric characters include both alphabetic and numeric characters. 
All others are "special characters." 
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Names 

A name is a string of one to sixty alphameric 
characters, the first of which is alphabetic. Although 
statement type identifiers and mnemonic delimiters are 
alphabetic strings, their use within a statement distinguishes 
them from names without ambiguity. 

Certain names have a pre-defined meaning in 
MILITRAN and may be used only in reference to that meaning. 


These names are: 

» 


ABS 

GST 

PRINTER 

ATAN 

INDEX 

RAND0M 

ATTACKER 

INTEGER 

RAND0M INDEX 

CARDS 

LENGTH 

REAL 

C0S 

L0G 

SIGN 

EACH 

LST 

SIN 

END C0MPILATI0N 

MAX 

SQRT 

EPSIL0N 

MIN 

TAN 

EXP 

MINIMUM INDEX 

TARGET 

FALSE 

M0D 

TIME 

F0RMAT 

NEXT EVENT 

TRUE 


All names used in a MILITRAN source program are 
either explicitly or implicitly assigned a type. Some 
types of names are assigned a mode. The type of a name 
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Indicates the nature of Its use In the program. The mode 
of a name Indicates the form of data referred to by the 
name. 

The following table lists all possible types of 
names, whether or not they have modes, and short descrip¬ 
tions of their use In a program. 


Type 

Mode? 

Use In Program 

Single Variable 

Yes 

Storage of single Items of data. 

Array 

Yes 

Storage of several Items of data 
tinder a single name. 

Vector 

Yes 

Storage of several arrays under 
a single name. 

List 

Yes 

Special form of vector which permits 
automatic updating of data Items. 

Object 

No 

Specification of basic Identifiers. 

Class 

No 

Grouping of objects. 

Contingent Event 
with List 

Yes 

Association of processing functions 
with a list of the same name. 

Permanent Event 

No 

Linking of processing functions 

In a simulated time sequence. 

Permanent Event 
with List 

Yes 

Association of processing functions 
with a list of the same name. 

Vector Component 

Yes 

An array which Is associated with 
a vector of list. 

Symbolic Dimension 

Yes 

Specification of array dimensions. 

Statement Label 

No 

Designation of points in program. 

Procedure 

Yes 

Designation of subroutine entry. 

Open Procedure 

Yes 

Designation of integral processing 
codes. 

External Procedure 

Yes 

Designation of separately coded pro¬ 
cessing. 
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Constants 

Constants are single Items of data whose value Is 
unchanged throughout the execution of the program. In fact, 
a constant might be thought of as a nameless single variable. 

Integer constants may take one of the following 

forms: 

1. A string of numeric characters. 

2. A string of the form "nHxxxxxx" 
where n Is a digit not exceeding 6 
and x Is any character Including 
the character “blank ". The number 
of characters (x) must be equal to 
n. 

Real constants may take one of the following 

forms: 

1. A string of numeric characters 
which Includes one and only one 
period. 

2. A string of numeric characters, which 
may or may not Include a period, 
followed by E, En, Enn, E+n, or E+nn, 
where n Is a numeric character. 

The distinction between real and integer constants 
is significant only In arguments to procedures. 

Logical constants Include only the names TRUE and FALSE. 







7 


Punotuatlon Marks 

The only punctuation marks used In MILITRAN 
are the following: 

. Period 

( Open Parentheses 

) Close Parentheses 

, Comma 

... Ellipsis (Delimits comments) 

Operators 

The operators used ip MILITRAN are the following 


- 

Substitution 



+ 

Addition; plus 


- 

Subtraction; 

minus 


* 

Multiplication 


/ 

Division 



.p. 

Exponentiation 


.E. 

Comparison: 

Equal to 


. 0 . 

Comparison: 

Greater than 


.L. 

Comparison: 

Less than 


NE. 

Comparison: 

Not equal to 


OE. 

Comparison: 

Greater than 

or equal to 

LE. 

Comparison: 

Less than or 

equal to 

IS. 

Object Identity 


IN. 

Object Inclusion 
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,0R. 

Logical 

disjunction 

.N0T. 

Logical 

negation 

.AND. 

Logical 

conjunction 

.EQV. 

Logical 

equivalence 

EX0R. 

Logical 

exclusive disjunction 
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Mnemonic Delimiters 

The delimiters BY, BY ENTRY, C0NTAINS, F0R, 

FR0M, IN, T0, and UNTIL are used vrlthln certain state¬ 
ments. Use of these alphameric combinations as names 
Is permitted, as the distinction between name and delimiter 
Is always contextually clear. 

Statement Type Identifiers 

The basic statement In MILITRAN Involves substitu¬ 
tion of one data Item for another within the computer. The 
substitution statement has the form 

a » b 

where a Is a subscripted or unsubscrlpted variable name and 
b Is any expression whose value Is suitable for storage In a. 

All statements which are not substitution statements 
are designated by alphabetic strings called statement type 
Identifiers. The following table lists all statement types 
and their primary uses. The form and characteristics of each 
statement Is summarized In later sections by primary use. 
Primary functions are listed under GENERAL LANGUAGE CHARACTER - 
ISTICS. 
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Statement Type 

Primary Function 

BACKSPACE 

INPUT/OUTPUT 

BACKSPACE PILE 

INPUT/OUTPUT 

BINARY READ 

INPUT/OUTPUT 

BINARY WRITE 

INPUT/OUTPUT 

CLASS 

STRUCTURE 

C0MM0N 

STRUCTURE 

C0NTINGENT EVENT 

STRUCTURE 

C0NTINUE 

CONTROL 

D0 

CONTROL 

END 

CONTROL 

END C0MPILATI0N 

COMPILER 

END C0NTINGENT EVENTS 

CONTROL 

END PILE 

INPUT/OUTPUT 

END FILE RETURN 

CONTROL 

END REC0RD RETURN 

CONTROL 

EXECUTE 

CONTROL 

F0RMAT 

INPUT/OUTPUT 

G0 T0 

CONTROL 

IF 

CONTROL 

INTEGER 

STRUCTURE 

LIST 

STRUCTURE 

L0GICAL 

STRUCTURE 

NEXT EVENT 

CONTROL 

NEXT EVENT EXCEPT 

CONTROL 
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Statement Type 

Primary Punctlon 

N0RMAL M0DE 

STRUCTURE 

0BJECT 

STRUCTURE 

PAUSE 

CONTROL 

PERMANENT EVENT 

STRUCTURE 

PLACE 

PROCESSING 

PLACE ENTRY 

PROCESSING 

PR0CEDURE 

STRUCTURE 

PR0GRAM 0BJECT 

STRUCTURE 

READ 

INPUT/OUTPUT 

READWRITE 

INPUT/OUTPUT 

REAL 

STRUCTURE 

REM0VE 

PROCESSING 

REM0VE ENTRY 

PROCESSING 

REPLACE 

PROCESSING 

REPLACE ENTRY 

PROCESSING 

RESET LENGTH 

PROCESSING 

RETURN 

CONTROL 

REWIND 

INPUT/OUTPUT 

ST0P 

CONTROL 

SUSPEND PAP LISTING 

COMPILER 

UNLESS 

CONTROL 

UNL0AD 

INPUT/OUTPUT 

VECT0R 

STRUCTURE 

WRITE 

INPUT/OUTPUT 
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STRUCTURE 


Structure - defining statements are summarized in 
this section. They include: 


CLASS 

C0MM0N 

CONTINGENT EVENT 

INTEGER 

LIST 

LOGICAL 

NORMAL M0UE 


Object 

PERMANENT EVENT 
PROCEDURE 

program Object 

REAL 

VECTOR 


Object 

The statement 


OBJECT n^(d^)) n^(dg)>•••> n^(d^) 


defines names n^, n^,..., n^ to represent basic object types. 

The names are preserved for use at running time in Input/output 
operations. 

Dimension d^ designates the number of objects to be 
named n^. This dimension may be an expression of real or integer 
mode. Names used in a dimension are defined by such use to be 
symbolic dimensions, and no other declaration of type or mode is 
permitted except subsequent use in dimensions. 
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Class 

The statement 

CLASS (n) C0NTAINS a^, a 2 ,.,.,a m 

defines the name n to be that of a class. The name Is not 
preserved In Its external form. 

The members of the class are specified by elements 

a,, a 0 ,...,a , where a. may have the following forms: 
i d m 1 

object name 
EACH*obJect name 
class name 
EACH*class name 

Object and class names used In a., a 0 ,...,a must 

i c. in 

have been declared as such by statements appearing before the 
current CLASS statement. 

The use or absence of "EACH*” Indicates whether or 
not membership is individual as opposed to collective. 
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Real, Integer, Logical, Program Object 

The statements 

REAL a^, • • • > 

INTEGER a^, a 2 ,•••, 

L0GICAL a^, a 2 ,«««, 

PR0GRAM 0BJECT a^, a m 

where element a^^ may have the form n A or n^(d^, d 2 >...,d^), 

defines names n^, n 2> ,,,#n m *>e REAL, INTEGER, LOGICAL, 

or PROGRAM OBJECT mode. 

The appearance of dimensions (d^, dg,...^^) In the 
element a A further defines name n t to be an array having k 
dimensions. 

Dimensions (d^, dg,...^^) may each assume the 
following forms: 

1. An expression of real or 
Integer mode; 

2. An object name; or 

3. A class name. 

Any name which appears In a dimension Is defined by 
such appearance to be a symbolic dimension unless It Is defined 
elsewhere as an object or class. No other definition of symbolic 
dimensions Is permitted except subsequent use In another dimension. 
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Normal Mode 

In the absence of explicit mode declarations, names 
are assigned modes according to their Initial letters as re¬ 
quired. The correspondence of modes to Initial letters Is 
known as the "normal mode". 

The statement 

N0RMAL M0DE m^(a^, a 2 ,,,#,a^), nig (b^, t j,..., 1 /, 
m^(cCg,.««,c^),...,m r 

Is used to specify the normal mode. Mode designators m may 
be the words REAL, INTEGER, L0GICAL, or PR0ORAM 0BJECT . 
Alphabetic characters a^, a 2 ,...,b 1 , b 2 ,...,c k Indicate the 
Initial letters which are to correspond to the various mode 
designators. Designator m r applies to all letters not ex¬ 
plicitly mentioned In the statement, and Is assumed REAL If 
absent. 

The normal mode so defined will prevail until 
another N0RMAL M0DE statement Is encountered. The Initial 
normal mode for all programs Is REAL. 
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Vector, List 

The statements 

VECT0R n((c^;C2>d ^, ^2 * * * * *^ * etc« 

LIST n((c^,Cg,...,Cj),d^), etc* 

define groups of arrays whlch have Identical 

dimensions d^,d 2 ,..*,d k and are grouped together under the 
name n. The name n is declared to be a vector or list, and 
names c i* c 2' ,#, ' c j are declared to be vector components. 

The number of such name/component/dlmenslon groups which 
can be declared in one statement is limited only by the max¬ 
imum statement length. 

Unless the mode of name n is declared explicitly 
in a REAL, INTEGER, L0GICAL, or PR0GRAM 0BJECT statement, the 
normal mode prevailing at the appearance of the VECT0R or LIST 
statement will be assigned. Components whose modes are not 
explicitly defined will be assigned the mode of the name n. 

Dimensions d^,dg,...,d^ may assume the same form as 
array dimensions previously described. 

Only two differences obtain between vectors and lists: 

1. Lists may have only one dimension; 
vectors may have any number. 

2. Lists may be operated on by special 
processing statements; vectors may not. 
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Contingent Event, Permanent Event 

The statements 

C0NTINOENT EVENT n( (c^Cg, ... ,Cj) ,d 1 ) 

PERMANENT EVENT n( (c^Cg,..., Cj) ,d 1 ) 

PERMANENT EVENT n 

% 

declare the name n to be a contingent event with list, permanent 
event with list, or permanent event. Forms with a list create 
storage assignments exactly as would a LIST statement. 

The event statement Is always followed by a series of 
one or more statements, the last of which must be an END state¬ 
ment. (See CONTROL .) This series of statements embodies the 
processing associated with the event named n. 

Standard event processing algorithms require the 
components c^Cg# and c^ of a C0NTINGENT EVENT list to have modes 
of REAL, PR0GRAM OBJECT, and PR0GRAM 0BJECT respectively. Any 
other construction may be used where standard processing Is not. 
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Common 

The statement 

C0MM0N n^ ,n 2 , • • •,n^ 

causes storage required by data Items named n^ng,.. .,n^ to 
be placed In a special area of the computer so that it can 
be directly accessed by procedures. Additions to this com¬ 
mon store are cumulative. Items from one common statement 
being added to those from any previous common statement. 

Access to common data by more than one program 
requires that each program have Identical common structure, 

1 .e. : 

1. Each Item In common must be 
Identically defined In both pro¬ 
grams ; 

2. Common statements In both programs 
must specify these Items In Identi¬ 
cal order. 

Identical definition and order suggest the following 
rules for common structure: 

1. If an Item In common has symbolic 
dimensions, the dimension names 
should also be In common; 
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2. If an Item In common haa dimensions 
which are object or claaa names, those 
names should also be In common; 

3. If a PERMANENT EVENT with list Is 

In common, the corresponding Item In 
all programs except that containing 
the event processing should be declared 
as a LIST. 

4. If a C0NTINGENT EVENT with list Is In 
common, the corresponding Item In all 
programs except that containing the 
event processing should be declared as 
a LIST and preceded In common by a 
single variable which Is otherwise 
unused. This extra variable does not 
appear In the common statements of the 
program containing the event processing. 

Only certain types of names may appear In a common 
statement, and these types are: 

Single variable 

Array 

Vector 


List 
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Object 

Class 

Contingent event with list 
Permanent event with list 
Symbolic dimension 

The names TIME, ATTACKER, TARGET, or INDEX may not 
appear In a common statement. Appearance of the name NEXT 
EVENT In a common statement will place all of the above names 
In common. 

Procedure 

The statement 

PR0CEDURE n(a 1 ,a 2 ,...,a m ) 

designates the entire program In which It appears to be a 
procedure whose name corresponds to the first six (or less) 
characters of> the name n. Neither the name n nor another 
PR0CEDURE statement may appear elsewhere In the same program. 

The names a 1 ,a 2 ,...,a m and their enclosing parentheses 
are optional, and designate the dummy arguments to the procedure 
If present. The following types of names may be used as dummy 
arguments: 

Single variable 

Array 

Vector 

List 

Object 



Class 

Contingent Event with list 
Permanent Event with list 
Symbolic dimension 
Statement label. 


22 


EXPRESSIONS 

As many MILITRAN statements depend upon the use 
of expressions, a brief summary of expression forms and 
types is presented in this section. A short discussion of 
retrieval forms is also included. 

Expression Syntax 

The overall syntax of expressions is presented 
here in the familiar Backus type notation. 

Brackets <> used below enclose terras designating 
elements; the sign :may be read as "takes the form"; ver¬ 
tical lines may be read as "or"; and all other characters 
represent themselves. 



{arithmetic expression^ 
{program object expression^ 



{arithmetic expression^ ::=* 



{arithmetic operatoi^ + | - ] * | / | .P. 









(real expression) : *■ 


(integer expression) 


(logical expression) 


(real data item) + \real expression) 
-{real expression) ( (real expression) ) 


'real / /arithmetic/ 

(expression/ /operator / 


V 

real 
expression 


/integer 

/expression 

/real 


/arithmetic 
/operator 


real 
expression 


>1 


/ arithmetic 
/expression/ ' operator 


integer \ 
/ expression/ 


integer data/ 
item 

integer 

expression/ 


+ /integer 
\expression 


( 


/integer \ 
/expression/ 


) 


/integer \ /’arithmetic 
/expression / \ operator 

(logical data item) | .N0T. 



integer \ 
expression/ 

logical ) 
expression/, 


^program object expression) 


/logical \ /logical \ /logical \ 
/expression/ /operator/ /expression/ 

/arithmetic/ -arithmetic \ /arithmetic/1 
/expression ' /comparator / /expression/1 

/program object) IN /object or \ ! 
/expression / ‘ * /class name/ | 

/program object/ IS /program object/ 
/expression / * * /expression /j 

{logical expression) ) 

:{program object data item) | 

/object or/ //arithmetic/ \ I 
/class name/ ^/expression/ \ 

( { program object expression) ) 
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(data item^ 


(single variable narae^| 
(symbolic dimension name^j 
(subscripted array narae^j 
(subscripted vector name^| 
(function^ I (constant^ 


(subscripted array name) /array-type\ / /subscrlpt\ \ 

x 7 \name / v \llst / 1 

( subscripted\ /vector-type\ / /subscript \ /arlthmetlc\ \ 

vector name/ \name / ' \llst / ^expression/ ' 


<’ 

4 


array-type name 


vector-type name 




(' 


vector component name 


array name^ | 

(/ector name^ 

(contingent-event-with-list name 


» 


<’ 


list name^ 


(permanent-event-wlth-llst name^ 


,\ 


>1 


(subscript llst^ (subscript)* 


(subscript/ /arithmetic \ 

' \expresslon/ 


(?^r rlPt > • (^subscript) 


/program obJect\ 
^expression / 


(function^ (external procedure nam^ ( (argument llst^ )j 

(open procedure name^ ( (argument llst^ )| 
(external procedure name) I (open procedure nam^ 
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^argument^ ^argument 11 st^ , ^argument 


^vector-type name^ 
^array-type nara«^ I /object or class name^ 


^expresslory 


^statement label name^ 


Functions 

A function Is a procedure whose execution Is Implied 
by Its use In an expression. Execution of the function always 
returns a single value which replaces the function In the 
expression. 

Arguments to a function must correspond In type and 
order to those expected by the procedure. 

A name whose type Is not otherwise declared Is 
Implicitly declared to t*) an external procedure (function) when 
It appears with an argument list In an expression. 
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Standard Functions 

Several functions are pre-defined in MILITRAN, 
and reference to their names automatically produces either 
open coding or calling sequences to library subroutines. 
These functions are described below. Values are returned 
in the same mode as the arguments except where noted. 
Arguments must be REAL except where noted. 

ABS (v) returns | v | . The 
argument v may be either 
REAL or INTEGER. 

ATAN (v^Vg) returns the angle 
OL whose tangent is 
(0 < a < 2TT ). 

COS (v) returns cos v. 

EPSILON (v) returns (v+ £ ) 
where £ is the smallest increment 
physically recognizable in v. Argument 
v may be either REAL or INTEGER. 

( £ s 1 when v is integer.) 

EXP (v) returns e where e is 
the Naperian base. 
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INTEGER (v) returns the 
largest Integer 1 such 
that |i| < |v| . Argument v 

may be either REAL or INTEGER. 
Result 1 Is returned In INTEGER 
mode. 

LOG (v) returns the natural 
logarithm of v. 

MAX ( v i> v 2 '•••> v j) returns 
the maximum value among 
the arguments (v^, ...,Vj). 
Arguments may be REAL 
or INTEGER. 

MIN ( v i> v 2 >...>Vj) returns 
the minimum value among 
the arguments (v 1# ...,Vj). 
Arguments may be REAL or 
INTEGER. 

RANDOM returns a REAL 
pseudo-random value, v, 

(0 < v < 1). 


REAL (v) returns the value 
of v In REAL mode. The 
argument v may be either 
REAL or INTEGER. ( | v | < 2 27 .) 


SIGN (v^jV^) returns the value 




If v 2 *0. 


If v 


SIN (v) returns sin v. 


SORT (v) returns 



TAN (v) returns tan v. 

(Values exceeding the maximum 
possible REAL value are 
truncated to that maximum.) 
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Subscripts 

Retrieval of specific data Items from arrays and 
vectors Is accomplished by means of subscripts. Types of 
names requiring subscripts fall Into two groups as follows: 

Array-type Vector-type 

Array Vector 

Vector component List 

Contingent event with list 
Permanent event with list 

Array-type names require exactly as many subscripts 
as they have dimensions. Consider the statement 

REAL n(d^,...,d^ >.•• $ d^) 

which defines the name n to be an m-dimensional array. Re¬ 
trieval of a single member of n would be accomplished by the 
expression 

n(e 1 ,...,e 1 ,...,e m ) 

occurring elsewhere In the program. The expressions e^,...,e m 
are subject to the following rules: 

1. Any expression e^ may be 
an arithmetic expression. 

2. Expression e^ may be a pro¬ 
gram object expression If 
and only If dimension d^ 

Is an object or class name. 
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Vector-type names require one more subscript 
than they have dimensions. Consider the statement 

VECT0R n((c^^^ c^ c^) ^ d^^^ d ^ j«.•>) 

which defines the name to be an m-dimensional vector having 
k components. Retrieval of a single member of n would be 
accomplished by either of the expressions 

n (e 1 ,...,e 1 ,...,« m ,e m+1 ) 

Cj(e 1# ...,e 1# ... # e m ) 

occurring elsewhere in the program. The expressions 
c l'** ,,e ra are 8ub J ect to the san »e rules as are subscripts 
for array-type names. The expression must be arithmetic 

and equal to j. 
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PROCESSINO 

Processing statements are summarized In this 
section. They Include: 

PLACE REPLACE 

PLACE ENTRY REPLACE ENTRY 

REMOVE RESET LENGTH 

REM0VE ENTRY Substitution 

Substitution 

All substitution statements take the form 
a - b 

where a Is a subscripted or unsubscrlpted name and b Is an 
expressions. The name "a" may not be an object, class, 
permanent event without list, statement label, procedure, 
external procedure, or open procedure. 

The following processing may be accomplished 
through a substitution statement: 

1. If a and b are of the same mode, the value 
of expression b replaces the value of a. 

2. If a and b are both subscripted vector-type 
names, the contents of b replace the contents 
of a without regard to mode. ("Contents" 

as used above refers only to a single value, 
not the entire array .) 

3. If a Is real and b Is Integer, the value of 
expression b Is converted to a real number 
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and replaces the value of a. 

4. If a Is Integer and b Is real, the value of 
expression b Is truncated to an Integer and 
replaces the value of b. 

Conditions 3 and 4 above apply only when condition 2 does 
not. 

List Processing 

Vector-type names defined In LIST, C0NTINGENT 
EVENT, and PERMANENT EVENT statements represent groups of values 
which may be processed by means of special "list processing 
statements." 

In the discussion of list processing statements 
which follows, all descriptions will refer to the generalized 
lists defined by 

LIST m((m^,...,m^,...,roj),d^)>n((n^,»»»,n^, • • •,n^)d^) 

The symbols designating the lists and components defined 
above will be maintained throughout the discussion. 

List Entries 

i.U 

The list m may contain d m entries. The entry 
In list m Is the set of values. 

m 1 (e),m 2 (e),,..,raj(e) 

The current number of entries In list m Is represented by 
the function 


LENGTH(m) 
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which Is Initially equal to zero for all lists. 

Any value In the group represented by the name 
m may be altered by means of a substitution statement. 
However, substitution statements do not maintain the 
LENGTH function and list processing statements consider the 
e^ entry valid only If 1< e< LENGTH(m). 

List Processing Conditions 

Several statements and functions Involved In list 
processing depend upon logical conditions of the form 

(b^,bg,•••,b^,b^) 

where k Is the number of components In the list. 

The entry of list n Is said to meet the 
condition (b,,...,b k ,b x ) If an only If 

1. b^ .EQV.TRUE for l< 1 < k; and 

2. b .EQV.TRUE 

A 

The logical expression b^ may Involve the current value of 
n^e), which value Is represented In b^ by an asterisk. 

The logical expression b^ may Involve e, which value Is 
represented In b by an asterisk. Since more than one 

A 

entry In list n may meet the condition (b.,... ,bj ( ,b ), the 
entry number "e" Is never used explicitly. 

The following abbreviations are permitted In the 

construction of list processing conditions: 

1, Omitted expressions are assumed to be TRUE; 
e.g ., the conditions (TRUE,TRUE) and (,) are 
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equivalent. 

2. Commas separating identically true 
expressions at the end of the condition 
may be omitted; e.g ., the conditions 
(bi^bg, TRUE,TRUE) and (b 1 ,b 2 ) are 
equivalent. 

3. The expression "*.E.a," where a is an 
arithmetic expression, may be represented 
by "a." 

4. The expression "*.IS.a", where a is a 
program object expression, may be re¬ 
presented by "a,” 

5. The expression '.'IN,a,” where a is an 
object or class name, may be represented by 

n_ tt 

a. 

A condition may be restricted by the use of the 
functions GST and LST. One and only one expression in a 
condition may be subjected to a GST/LST restriction. Every 
condition containing GST or LST is met by no more than one 
entry in list n. 

1. (b.,.. .,GST(b 1 ),.. .,b k ,b x ) refers to that 
entry whose n. is the greatest n. among all 
entries meeting condition (b^,...,b i ,...,b k ,b x ). 

2. (b 1 ,...,LST(b 1 ),...,b k ,b x ) refers to that 
entry whose n^ is the least among all 
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entries meeting condition 
(b^, • • • #b^, • • • *^y£»b x ) * 

3. (b^,...,b k ,OST(b x )) refers to the 
highest numbered entry meeting 
condition (b 1 ,... ,b Jc ,b x ). 

4. (b^,.. ,,bj c ,LST(b x )) refers to the 

lowest numbered entry meeting 
condition (b^,..,,b k ,b x ). 

Where expression b^ is subjected to a OST/LST 
condition, component n^ must be of real or integer mode. 

Where duplicate minima or maxima occur, the lowest numbered 
entry is chosen. 

Place, Place Entry 

Execution of the statement 

PLACE(c^,...,c^,...,c^) IN n 

causes the current value of LENGTH(n) to be Increased by one 
and the values c^,...,c, to replace current values of 
n^(LENGTH(n)),...,np(LENGTH(n)). The number of expressions 
(p) may not exceed the number of components (k) in list n. 
Expression c A must be of the same mode as component n^ for 
1< i< p. 
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Execution of the statement 
PLACE ENTRY m(e) IN n 

ie identical in a processing sense to execution of 
PLACER(e),.. .,nip(e)) IN n 

where p is equal to the smallest number of components 
contained in either list (m or n). 

Remove, Remove Entry 

Execution of the statement 

REM0VE (b 1 ,...,b k ,b x ) FR0M n 

will cause all entries meeting condition (b^,...,b k ,b x ) 
to be removed from liBt n. 

Execution of the statement 

REM0VE ENTRY n(e) 

f U 

will cause the e^ entry in list n to be removed. 

For every entry removed from list n, the value 
of the function LENGTH(n) 1 b reduced by 1. Rearrangement 
of the list to eliminate blank entries is performed where 


neceBBary 
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Replace, Replace Entry 

Execution of the statement 

REPLACE ENTRY n(e) BY (c ]L ,...,c p ) 

causes the values of n^ (e),.. ,,rip(e) to be replaced by 
the values of expressions c,,...,c . The number of ex- 

* if 

presslons. (p) raay not exceed the number of components (k) 

In list n. Modes of expression c^ and component n^ must 

match for 1< i < p. The value of n^(e) before replacement 

may be represented in expression c^ by an asterisk. 

Execution of the statement 

REPLACE ENTRY n(e ][ ) BY ENTRY m(e 2 ) 

causes values m 1 (e 2 ),...,rap(e 2 ) to replace the current 
values n 1 (e 1 ),.,.,n p (e 1 ), where p is the smallest number 
of components contained in either list (m or n). 

The two statements 

REPLACE ENTRY n(e ][ ) BY ENTRY (e 2 ) 

REPLACE ENTRY n(e ][ ) BY ENTRY n(e 2 ) 


are identical in a processing sense 
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Execution of the statements 

REPI«ACE(b 1 , ...,bj c ,b x ) BY (c 1 ,...,c p ) IN n 
REPLACE(b 1 ,...,b k ,b x ) BY ENTRY m(e) IN n 
REPLACE(b 1 ,...,b k ,b x ) BY ENTRY (e) IN n 

cause replacement of every entry In list n which meets 
condition (b^,...,b k ,b x ). Replacement Is accomplished 

In exactly the same manner as by corresponding REPLACE 
ENTRY statements. 

Reset Length 

Execution of the statement 
RESET LENGTH (n) T^e 

will arbitrarily reset the value of function LENGTH(n) 
to the positive Integer value of arithmetic expression e. 

Use of this statement is required only when non¬ 
list-processing statements have been used to enter values in 
list n or when the programmer wishes to ignore entries beyond 

the e^ entry* 
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List Entry Locating Functions 

Two MILITRAN functions operate directly upon 
list processing conditions. These functions are used 
within the context of an expression as are the functions 
discussed under EXPRESSIONS. 

The functions 

MINIMUM INDEX (n(b r ... ,\,\) > s) 

RANDOM INDEX (n(b 1 ,... ,s) 

return an Integer value designating an entry In the list 
n which meets the condition (b.,...,b k ,b x ). If no such 
entry exists, control transfers Immediately to the state¬ 
ment labelled s. 

The distinction between MINIMUM INDEX and RANDOM 
INDEX obtains only when more than one entry In list n 
satisfies condition (b^,...,b^,b x ). MINIMUM INDEX chooses 
the lowest numbered entry meeting the conditionj RANDOM 
INDEX chooses one entry at random from all those meeting 
the condition. 

MINIMUM INDEX may be shortened to INDEX without 


loss of meaning 



input/output 


Input/output statements are summarized in this 
section. They include: 

BACKSPACE 
BACKSPACE FILE 
BINARY READ 
BINARY WRITE 
END FILE 
F/RMAT 

Logical Unit Designations 

Input/output units are designated in MILITRAN 
source programs as follows: 

Tape Units by positive integers; 

Line printer by the name PRINTER; 

Card reader and punch by the name CARDS. 

Tape Control Statements 

Statements whose execution causes tape units to 
perform operations not involving transfer of data are tabu¬ 
lated below. In all cases, the designation t is an arithme¬ 
tic expression. 


READ 

READWRITE 

REWIND 

UNLOAD 

WRITE 





Statement 

Effect 

BACKSPACE (t) 

Designated tape unit 
backspaces one record.* 

BACKSPACE (t) 

Designated tape unit 
backspaces until an end-of-file 
mark is passed.* 

END PILE (t) 

An end-of-file mark is 
written on the designated 
tape. 

REWIND (t) 

Designated tape unit rewinds.* 

UNLOAD (t) 

Designated tape unit rewinds 
and becomes inoperative. 


Statements marked with an asterisk have no effect 
if designated tape unit is fully rewound. 
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Input/Output Llata 

Input/output statements which involve transfer of 
data between the computer and external devices require a list 
of those items which are to be transferred. All such lists 
are identically constructed. The summary below utilizes the 
notation previously used to describe expressions. 


(i/O list) 


« « 

• • 1 


^expression) | ( (l/O list) ) | 

(i/O list) , (I/O list) | 

(( ( I/O list) ) ^implied DO loop) ) 

(l/O list) , ^void) 


/impliedX .. 
\DO loop/**" 


wota /Program object \ ^ /object or \ 

p l° n \ alntrla, no mo ) • • LW • 


\single variable name^ 


\class name/ 


^terminating condition)| 

^terminating condition) , ^index) J 

(tlZlTiT 1 ) . < lndex > 


^express ior^j 


^expression) , ^expressions 


^terminating condition) UNTIL ^logical expressioi) 

A A .. /any expression permitted on the left\ 

\ in / **" \ side of a substitution statement / 
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Binary Read, Binary Write 

The statements 

BINARY READ (t) data 
BINARY WRITE (t) data 

where the "data" Is any Input/output list, cause reading 
or writing in binary form on magnetic tape. The expression 
t must designate a tape unit. 

Binary reading and writing are performed without 
conversion, l.e. , items are handled in their exact internal 
form. Each BINARY WRITE statement writes a logical block 
of data on tape whose length is dependent upon the number 
of items in the input/output list. A BINARY READ statement 
may read only one logical block. If fewer Items are read 
than are contained in the block, the remaining items in the 
block are skipped. 
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Read, Write 

The statements 

READ (t,s) data 
WRITE (t,s) data 

cause reading or writing of information on the input/output 
unit designated by the expression t according to a format 
specified in a FORMAT statement which has the label s. Data 
must be specified by an input/output list. 

Hie statement 

READWRITE(t 1 ,s^,t 2 ,s 2 ) data 
is identical in a processing sense to the statements 

READ (t^s,) data 
WRITE (tgjSg) data 
executed in the order shown. 
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Format 


Formats for data transferred by READ, WRITE, AND 
READWRITE statements are specified by statements of the form 

s FORMAT (Specification) 

The label s is required, since it is the only link between 
the READ or WRITE and its associated FjtfRMAT. 

Hie specification portion of a FORMAT statement 
consists of a series of fields and punctuation marks which 
indicate the form and placement of data in external records. 

Fields are of two types: data and non-data. 

Data fields specify transmission of data to or from items 
in the input/output list. Non-data items involve transfer 
only between the FORMAT statement and external records. Data 
fields must be separated from succeeding fields by commas, 
while non-data fields need not be. 

Field groups may be repeated through the use of 
parentheses. The notation "n (sub-specification)" will cause 
the group in parentheses to be repeated n times. If n is 
absent, the group is repeated indefinitely. The sub-specifica 
tion may not contain parentheses. 

Hie end of any parentheses without a specific number 
of repetitions (n) normally signifies the end of a record. 

Hie specification for the next record starts from the corres- 
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ponding open parentheses. Additional changes of record may 
be specified by a slash (/). Two consecutive slashes Indicate 
a blank record. 

During execution of a READ, WRITE, or READWRITE 
statement. Input/output lists and FgteMAT specifications 
are simultaneously scanned from left to right. Each data 
Item In the Input/output list corresponds to a data field 
In the FgfRMAT specification, correspondence being established 
solely by order of occurrence. Transmission ends when the 
Input/output list Is satisfied. 

Voids In the Input/output list cause the corres¬ 
ponding data fields to be skipped (Input) or filled with 
blanks (output). An Input/output list which consists solely 
of an Implied "DO-loop" will cause tape motion only If at 
least one Item of data Is transferred. If an Input/output 
list results In reading of a partial record, the remainder 
of the record Is skipped. 

Non-data fields are designated by the letters 
X or H. Ihe specification wx causes w characters to be 
Ignored on Input or assumed blank on output. The specifica¬ 
tion wH must be followed Immediately by w characters which 
will be copied literally from F0kMAT statement to record 
(output) or vice-versa (input). 




Data fields are designated by specifications 
of the form ncw.d where n Is the number of fields, c Is 
an identifier designating field type, w is the field width, 
and d is a supplementary width. The supplementary width is 
not required for some fields. The number of fields is 
assumed to be 1 if absent. Basic field types are summarized 
below. Source and target addresses referred to in the table 
are items in the input/output list and are discussed in de¬ 
tail immediately following the table. The number of charac¬ 
ters in the external record covered by any field is always 
equal to the field width. 
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Field 

Specification Interpretation 

Aw External field contains alphameric data; 

Internal representation will be BCD code. 
Input: The rightmost six characters from 
the field replace data at the target address. 
If w Is less than six, w characters are left 
Justified and filled to six characters with 
blanks. 

Output: Six characters from the source 
address are right Justified In the field. 
Remaining characters are blank. If w is 
less than six, the leftmost w characters 
from the source address are used. 

Iw External field contains decimal Integer; 

Internal representation Is Integer data. 
Input: All blanks are considered zero. 
Output: Leading zeroes are replaced by 
blanks. 

fa External field contains octal Integer; 

Internal representation Is Integer data. 
Input: All blanks are considered zero. 
Output: Leading zeroes are replaced by 
blanks. 

Lw External field contains word beginning 

with T or F; Internal form Is logical. 

Input: T or F In field results In trans¬ 
fer of TRUE or FALSE to target address. 
Output: TRUE or FALSE at source address 
causes T or F to be right Justified In 
field. Remainder of field Is filled with 
blanks. 
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Field 

Specifloatlon Effect 


Jvr.d 

External form is the name of an object 
and its ordinality; internal form is 
a program object value. 

Input: Field is scanned from left to 
right until w-d characters are read or 
a left parenthesis appears. Scanned 
characters (blanks ignored) are com¬ 
pared with names of all 0BJECT types in 
program. Digits following a left parenthe¬ 
sis, or the rightmost d characters, are 
assumed to be the ordinality. Program 
object value constructed and transmitted 
to target address. 

Output: Ordinality of source address value 
is converted to decimal integer, enclosed 
in parentheses, and placed in rightmost d+2 
characters of field. Object name is right 
adjusted in leftmost w-d-2 characters. Re¬ 
mainder of field is blank. 

JW 

Input: Ordinality is assumed unity if no 

left parenthesis appears. 

Output: Only object name appears in field. 

Fw.d 

External form is decimal number; internal 
form is real. 

Input: Decimal point is assumed d characters 
from the right unless present. .. 

Output: Decimal point is inserted as d— 
character from the right. 

Ew.d 

External form is decimal number and exponent. 
Internal form is real. 

Input: Number is assumed to have the form 
xxxx+xx where sign separates base value and 
exponent. Base value times ten to exponent 
value is transmitted in real mode to target 
address. Exponent is assumed unity if absent 
Decimal point in base value is assumed such 
that d digits are fractional unless decimal 
point appears explicitly. Exponent may have 
one or two digits. 

Output: Field has the form .xxxxE+xx, where 
decimal point falls to the left of the dth 
character in the base value. 
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Data fields of type E,F,I, and 0 may be signed. 
Missing sign :Ls assumed plus on Input; plus sign Is not 
written on output. 

Source and target addresses are determined by 
Items In the Input/output list. A source address is a value 
to be written; a target address is a position into which a 
value Is to be read. 

All source addresses yield either the value of 
an expression or a void. Fields corresponding to voids in 
the input/output list will be blank. 

A target address is implicitly void if the expression 
corresponding to it contains any operator, external procedure, 
or open procedure outside of its subscripts. Fields corres¬ 
ponding to voids are ignored. 
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CONTROL 


Statements whose major function is the oontrol 
of program operating sequenoe are summarized in this section. 
They include: 

CONTINUE 

DO 

END 

END CONTINGENT EVENTS 
END FILE RETURN 
ENI) RECORD RETURN 
EXECUTE 
GO TO 

Go To 

Execution of the statement 
GO TO s 

oauses the program to continue from the statement whose 
label is s. In the disoussions which follow, this opera¬ 
tion will be described as: "Control is transferred to s. 

If, Unless 


IF 

NEXT EVENT 

NEXT EVENT EXCEPT 

PAUSE 

RETURN 

STOP 

UNLESS 


Execution of either of the statements 
IP(b),x,y 
UNLESS (b),y,x 
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will transfer control to x If logical expression b has 
the value TRUE, to y If b Is FALSE. The second comma 
and label may be omitted. In which case the statement 
Immediately following the IF or UNLESS Is assumed. 
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Pause, Stop 

Execution of the statement 
PAUSE n 

causes the computer to stop with the octal number n 
displayed. Execution may be restarted by manual means. 

Number n may not exceed 30000 octal. 

Execution of the statement 

ST0P 

causes execution of the program to be terminated. Restart 
cannot be effected. 

Execute, Return 

The PROCEDURE statement, described under STRUCTURE , 
is used to define MILITRAN programs whose operation is to be 
controlled by other programs. The control statements EXECUTE 
and RETURN implement control of such programs. 

Execution of the statement 

EXECUTE n(a 1 ,a 2 ,,,.,a m ) 

will cause control to be transferred to the PROCEDURE whose 
name corresponds to the first six characters of the name n. 
Arguments a^,a2 >...>a m must correspond in mode, type, and 

order to the dummy arguments of the procedure. The name n is 
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declared by Its appearance In an EXECUTE statement to be 
an external procedure name. 

In a program which is a procedure, execution of 
the statement 


RETURN 

will return control to the program in which the EXECUTE 
statement appears. 

Procedures which are used as functions (see under 
EXPRESSIONS ) must return a value to the executing program. 
The statement 


RETURN e 

where e is an expression accomplishes transfer of both con¬ 
trol and the value of e. 
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Do, Continue 

Execution of the statement 

D0 (s) UNTIL b, i - e i * e 2 

causes iterative execution of statements following the D0 up 
to and including the statement labelled s. Before the first 
iteration, index i will be set to the value of expression e^j 

before subsequent iterations, index i will be incremented by 
the value of expression e 2 . Index i may be any unsubscripted 

or subscripted name of type single variable, array, vector, 
list, or event with list. 

If at the beginning of any iteration the value of 
logical expression b is TRUE, control transfers immediately 
to the statement following s. 

Execution of the statement 

D0 (s) F0R a.IN.b 

causes iterative execution of statements following the Dtf 
up to and including the statement labelled s. The single 
variable a must be of program object mode and will successively 
assume the identity of all members of the object or class b. 

When all members of b have been represented by a, 
control transfers immediately to the statement following s. 
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In both forms of the D0 statement above it is 
necessary that the statement labelled s permit control to 
pass through it to the next statement. Thus the statements 
Off T0, NEXT EVENT, and IP or UNLESS with two labels are 
prohibited as terminal statements of a D{! loop. 

Restrictions on statements terminating D0 loops 
do not limit the variety of processing arrangements possible, 
since the statement 

CONTINUE 

can be used at any point in a program. This statement per¬ 
forms no operations and requires no space in the computer. 

Its label, however, may be used to terminate a Dff loop. 

Other D0 statements may appear between one D0 and 
its terminating statement, but the "inner" loop must terminate 
at or before the end of the "outer" loop. 
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End, Next Event, Next Event Except 

A group of executable statements beginning with 
one of the statements 

CJ2*NTINGENT EVENT n( (c^Cg,... ,c j ),d) 

PERMANENT EVENT n((c^Cg,...,cj),d) 

PERMANENT EVENT n 

and ending with the statement 

END 

Is known In M]XITRAN as an "event,” Depending upon the 
Initial statement, the event Is either a "contingent event" 
or a "permanent event," 

Events are processed In a sequence determined by 
the structure of the MILITRAN source program. The "natural" 
or unmodified sequence Is: 

1. The first permanent event In the 
program. 

2. Subsequent permanent events In 
the order of their appearance In 
the program. 

3. The last permanent event In the 
program. 

4. The "next contingent event". 
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This sequence is repeated until terminated by either failure 
to select a "next contingent event" or transfer of control 
to a portion of the program not in any event. 

It is not required that a program have any minimum 
number of pennanent or contingent events. In the discussion 
which follows, we will assume that irrelevant items in the 
natural sequence are ignored. 

Selection of the "next contingent event" is depend¬ 
ent upon the current value of TIME. Of all entries in all 
contingent event lists, one is selected whose first component 
exceeds TIME by the smallest positive value. The first compo¬ 
nent is assumed to be of real mode; duplicate minima within 
one event cause the entry of least index to be chosen; dupli¬ 
cate minima in more than one list cause an entry to be chosen 
from the event which appears earliest in the natural sequence. 

Execution of the statement 

NEXT EVENT 

causes control to be transferred to the next event in the 
natural sequence. If the NEXT EVENT statement is not itself 
contained in an event, control is passed to the first permanent 


event 
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Hie statements 

NEXT EVENT (n^rig, ... ,1^) 

NEXT EVENT EXCEPT (n^n^ ... , 1 ^) 

behave exactly as does the NEXT EVENT statement, but modify 
the natural sequence. NEXT EVENT EXCEPT will assume that 
events n^,n 2 > ...,n Jn do not exist. NEXT EVENT (n^,n 2 ,...,n m ) 

will assume that only the events named In parentheses exist 
and that they occur In the order listed. 

When control Is transferred to a contingent event 
by means of an event sequencing statement, the values of 
TIME, ATTACKER, TARGET, and INDEX are automatically set. 
Assuming that control has been transferred to CONTINGENT 

Vi 

EVENT n (above) because its 1— entry contains the minimum 
first component, then: 

TIME - c^i) 

ATTACKER - c 2 (i) 

TARGET - c 3 (i) 

INDEX - 1 

Transfer of values above is made without respect to modes, 
e.g., ATTACKER is not valid unless c 2 is of program object 


mode 
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End Contingent Events, End File Return, End Record Return 

Certain conditions occurring during the running 
of a program are detected as errors by the program. Three 
of these conditions are: 

1. In attempting to choose a "next 
contingent event," the program 
finds no entries whose values 
equal or exceed the current value 
of TIME. 

2. In reading from magnetic tape, the 
program encounters an end-of-file 
mark on the tape before the Input/ 
output list Is satisfied. 

3. In executing a BINARY READ, the end 
of a logical block is encountered 
before the Input/output list is 
satisfied. (See under BINARY READ ) 

In all of the above cases, control is normally 
wrested from the program and execution is terminated. How¬ 
ever, execution of the statements 

END CgtoTINGENT EVENTS (S) 

END PILE RETURN (S) 

END RECORD RETURN (S) 
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causes the program to be modified in such a way as to 
return control to the statement labelled s if and when 
the appropriate error condition occurs. 
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COMPILER 


Statements whose function Is providing Informa¬ 
tion to the processor are summarized in this section. 
These essentially machine-dependent statements are: 

END COMPILATION 
SUSPEND FAP LISTING 


End Compilation 

The statement 

END COMPILATION 

signals the end of a MILITRAN source program. The statement 
may not contain comments and may not occupy more than one 
card. 


Columns 73-75 of the END COMPILATION card will be 
preserved and used to Identify the translated program. 

Suspend FAP Listing 

The statement 

SUSPEND FAP LISTING 

appearing anjwhere in a MILITRAN source program will cause 
listing of the translated program to be omitted by the 


processor 
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Environment Declarations 

REAL n^ \ ^" 2 * • • • * ' * * * * *^m lg * • • • * ^ j ) 

INTEGER n 1 (l^ * Ig* * * * * ^ic ^* * * * * lg* • • • * ^ j) 

LOGICAL n^(l^>lg* • • • *)* • • • t (1^*ig* 

OBJECT n^ (l^ J^ng(lg)# • • • **^jjj(^jjj) 

PROGRAM OBJECT n^ (l^jl 2 * • • • * 1^)> • • • ,»n^(l^f 12* • 

CLASS (c) CONTAINS a ± ,a 2 ,...,a 

NORMAL MODE m^ * • • /) t ®g * Lg * * * * *^j> ) 

VECTOR n ((fl^> 82 > • • 

COMMON n L ,n 2 ,..,,n i 

Arithmetic 
A - B 

Logical 

A - B 

Control Statements 


GO TO s 
PAUSE J 
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STOP 

IP (b) » t ,s f 

UNLESS (b) s f ,s t 

DO (s) UNTIL b, n - e i > e 2 

DO (s) POR a.IN.b 
CONTINUE 

List Processing Statements 

LIST n(^, c g , • • • 

LENGTH (n) 

RESET LENGTH (n) to p 
PLACE eg, • • •, e) IN n 

REMOVE ENTRY n(k) 

PLACE ENTRY m(j) IN n 

REPLACE ENTRY n(k) BY (e^eg, ... ,e ± ) 

REPLACE ENTRY n(k) BY ENTRY ra(j) 

REMOVE (bj^bg,...,^) PROM n 

REPLACE (b 1 ,bg,..,,b i ) BY ( e i* e g,...,e ± ) IN n 

REPLACE (b 1 ,bg,...,b jL ) BY ENTRY tn(j) IN n 

MINIMUM INDEX (nfb^bg, , , . ,b 1 ) # B ) 

RANDOM INDEX (n(b 1 ,to 2 , ### ,b 1 ),s) 

GST 


LST 



Event Statements 


PERMANENT EVENT n( (a 1 ,a 2 ,... ,8^ 

CONTINGENT EVENT n( (a-^a^ ... ,a 

NEXT EVENT 
NEXT EVENT 

NEXT EVISNT EXCEPT (n^n^ . . .,n x 
END 

END CONTINGENT EVENTS (s) 

Procedure Statements 

PROCEDURE n 

PROCEDURE n(a^,a 2 , .. .,a n ) 
EXECUTE n 

EXECUTE n (a^^a 2 > • • *>a^) 

RETURN 
RETURN a 

Input-Output Statements 

FORMAT (Format Specification) 
READ (tj s) List 
WRITE (t,s) List 
READWRITE (t^s^t^Sg) List 


BINARY READ (t) List 





BINARY WRITE (t) List 
END PILE RETURN (s) 
END RECORD RETURN (s ) 
BACKSPACE (t) 
BACKSPACE PILE (t) 
END PILE (t) 

REWIND (t) 

UNLOAD (t) 
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Standard Functions 


ABS(v) 

ATAN(v 1 ,v 2 ) 

C0S (v) 

EPS IL0N (v) 

EXP (v) 

INTEGER(v) 

L ffa (v) 

MAXCv^Vg, ... ,Vj) 

MIN(v 1 ,Vg,..*,Vj) 

MjZfD(v 1 ,Vg) 

RANDOM 

REAL(v) 

SIGN(v) 

SIN(v) 

SQRT(v) 

TAN(v) 



INDEX 


"A" Fields In FORMAT 48 
ABS 26, 4, 67 
addition (+) 7, 22 

.AND. 8, 22 
arrays 5 , 14 

as procedure arguments 20 
In C0fMM0M statements 19 
in expressions 24 
subscripts of 29 
asterisk (*) 7 

as multiplication symbol 22 
in list processing conditions 33-34 
ATAN 26, 4, 67 
ATTACKER 4 

automatic updating 59 
in statements 20 

BACKSPACE 41, 10, 40, 66 
BACKSPACE FILE 4l, 10, 40, 66 
BINARY READ 43, 10, 40, 65 
BINARY WRITE 43, 10, 40, 66 
blanks 3, 6 
BY 9, 37-38, 64 
BY ENTRY 9, 37-38, 64 

card punch 43 
card reader 40 
CARDS 40, 4 

characters, alphabetic 3> 4, 9 
characters, alphameric 3> 4, 6, 46, 48 
characters, numeric 3> 6 



characters, set of 3 
characters, special 3, 7, 6, 46, 48 
CLASS 13, 13, 12, 63 
classes 5 

as class members 13 
as dimensions 14, 19 
as DO-loop parameters 55 
as procedure arguments 21 
defining statement 13 
in C0faMOtf statements 19, 20 
in expressions 23, 25 
in substitution statements 31 
comma (,) 7 

C0MM0N 18-20, 10, 12, 63 

comparators 7, 22, 23 

constants 6, 3, 24 

OBTAINS 9, 13, 63 

CONTINGENT EVENT 17, 57, 10, 12, 65 

contingent events 5 

as procedure arguments 21 
automatic processing of 57-59 
defining statements 17, 57 
in COMM0N statements 19, 20 
in expressions 24 
In substitution statements 31 
subscripts of 29 
CONTINUE 56, 10, 51, 64 
COS 26, 4, 57 

dimensions L4 

in COMMON statements 18, 19 
of arrays 14 
of lists 16 
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of objects 12 
of vector components 16 
of vectors 16 

related to subscripts 29-30 
division (/) 7, 22 

D0 55-56, 10, 51, 64 

.E. 7, 22 

implied in list processing conditions 34 
"E" fields in F01 MAT 49 
EACH 13, 4 
ellipsis (...) 7 

END 17, 57, 10, 51, 65 
END COMPILATION 62, 4, 10 
END CONTINGENT EVENTS 60-6l, 10, 51, 65 * 

END FILE 41, 10, 40, 66 

END FILE RETURN 60-6l, 10, 51, 66 

END RECORD RETURN 60-6l, 10, 51, 66 

EPSILON 26, 4, 67 

.EQV. 8, 22 

EXECUTE 53-54, 10, 51, 65 
.EXOR. 8, 22 
EXP 26, 4, 67 
exponentiation (.P.) 7, 22 

expressions 22-25 

as dimensions 12, 14 
as DO-loop parameters 55 
as logical unit designators 40 
as subscripts 29-30 
in input/output lists 42 
in RETURN statements 54 
in substitution statements 9, 31-32 
external procedures 5, 24, 31 , (see also ’’procedures") 


"F" fields in F0ftMAT 49 

FALSE 4, 6 

F0ft 9, 42, 55, 64 

F0ftMAT 45-50, 44, 4, 10, 40, 65 

FR0fo 9, 36, 65 

functions 25-28 (see also "procedures”) 

for locating list entries 39 

in expressions 24 
standard in MILITRAN 26-28 
use of RETURN statement 54 

. 0 . 7 , 22 
.GE. 7, 22 
G0 T0 51, 10, 63 

restriction in D^-loops 56 
GST 34-35, 4, 64 

"H" fields in F0ftMAT 46 

"I" fields in F0ftMAT 48 

IF 51-52, 10, 64 

restriction in D0-loops 56 
implied DJ2f-lc»ops in input/output lists 42 
IN 9, 35, 36 , 38 , 64 
.IN. 7, 22, 23 

implied in list processing conditions 34 
INDEX 4 

as abbreviation for MINIMUM INDEX 39 
automatic updating 59 
in C0MK0N statements 20 
input/output lists 42-46, 50 
INTEGER 14, 27, 4, 10, 12, l6, 67 
.IS. 7, 22, 23 

implied in list processing conditions 34 


"J" field* in F0ftMAT 49 


.L. 7, 25? 

"L" field* in F0ftMAT 48 
.LE. 7. 5?2 

LENGTH 32-33, 4, 35, 36, 38, 64 
line printer 40 
LIST 16, 10, 12, 64 
list entries 32 

as basis for NEXT EVENT selection 58-59 
conditions specifying 33 
functions for locating 39 
list processing 32-39, 64 
lists 5 

as procedure arguments 20 
associated with events 17, 58-59 
defining statements 16, 17 
in C0^‘.M0N statements 19 
in expressions 24 
in substitution statements 31 
processing of 32-39 
subscripts of 29 
L0Q 27, 4, 67 
LOGICAL 14, 10, 12, 16, 63 
logical block 43, 60-61 
logical unit designations 40, 43, 44 
LST 34-35, 4, 64 

main program 2 

MAX 27. 4, 67 

MIN 27, 4, 67 

MINIMUM INDEX 39, 4, 64 

minus (-) 7, 23 

mnemonic delimiters 9, 3 
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M0t> 4, 67 
modes 4-5 

declaration of 14-16 
multiplication (*) 7 # 22 

names 3 ~'+ 

.NE. 7, 22 

NEXT EVENT 57-59, 4, 10, 51, 65 
in C^IM^N statements 20 
restriction in D0-loops 56 
NEXT EVEN]! EXCEPT 57-59, 10 , 51, 65 
NORMAL M0DE 15, 11, 12, l 6 
.N0T. 8 , 23 

"0" fields in FORMAT 48 
OBJECT 12 , 11 , 63 
objects 5 

as class members 13 
as dimensions 14, 19 
as D0f-Loop parameters 6 l 
as procedure arguments 21 
defining statement 12 
in C 0 MM 0 N statements 19 , 20 
in expressions 23 
in substitution statements 31 
open procedures 5, 24, 31 (see also "procedures") 
operators 3 , 7 - 8 , 22-23 
.0R. 8, 22 

.P. 7, 22 

parentheses () 7, 23-24, 45 

PAUSE 53, 11, 51, 63 
period (.) 7, 6 

PERMANENT EVENT 17, 11, 12, 57, 65 



permanent events 5 

as procedure arguments 21 
automatic processing of 57-59 
defining statements 17* 57 
in CgfrlM^N statements 19, 20 
in expressions 24 
in substitution statements 31 
subscripts of 29 
PLACE 35, 11, 31, 64 
PLACE ENTRY 36, 11, 31, 64 
plus (+) 7, 23, 51 

PRINTER 4, 40 

PROCEDURE 20, 11, 12, 53, 65 
procedures 2, 5 

arguments of 20-21, 24, 25, 53 
as functions 25 
C0MM0N statements in 18 
control statements 53-54 
defining statements 20-21, 53-54 
implicit declaration of 25 
in expressions 24 
in substitution statements 31 
program 2 

PROGRAM SUBJECT 14, 11, 12, 16, 63 
punctuation 3, 7, 22-25 

RANDOM 27, 4, 67 
RANDOM INDEX 39, 4, 64 
READ 44, 11, 40, 45-46, 65 
READWRITE 45, 11, 40, 45-46, 65 
REAL 14, 28, 4, 11, 12, 16, 67 
REMOVE 36, 11, 31, 64 
REMOVE ENTRY 36 , 11, 31, 64 
REPLACE 33, 11, 31, 64 



REPLACE ENTRY 37, 11, 31, 64 
RESET LENGTH 38, 11, 31, 64 
RETURN 53-54, 11, 51, 65 
REWIND 41, 11, 40, 66 
SIGN 28, 4, 67 
SIN 28, 4, 67 
single variables 5 

as procedure arguments 20 
In C^IMON statements 19 
In expressions 24 
source program 2 
source address 50, 47-49 
SORT 28, 4, 67 
statement labels 5 

as procedure arguments 21 
defined by CONTINUE statements 56 
defining range of DO-loops 55 
in ENT CONTINGENT EVENTS statements 60-61 
in ENT PILE RETURN statements 60-61 
in END RECORD RETURN statements 60-61 
in GO TO statements 51 
in IF statements 51-52 
in substitution statements 31 
in UNLESS statements 51-52 
required for FORMAT statements 45 
statement type identifiers 9-11, 3 
STOP 53, 11, 51, 64 
subscripts 29-30 

substitution statement 31-32, 7, 9, 63 
subtraction (-) 7, 22 

SUSPEND FAP LISTING 62, 11 
symbolic dimensions 5 

as procedure arguments 21 
in COMMON statements 18, 20 



in expressions 24 

of arrays, vectors, lists, etc. 14 

of objects 12 

TAN 28, 4, 67 
tape units 40-41, 43 
TARGET 4 

automatic updating 59 
in C0MM0N statements 20 
target address 52, 47-49 
TIME 4 

as basis for NEXT EVENT selection 58 
automatic updating 59 
in C0MM#N statements 20 
T0 9, 38, 64 
TRUE 4, 6 

implied in list processing conditions 

UNLESS 51-52, 11, 64 

restriction in D0-loops 56 
UNLOAD 41, 11, 42 
UNTIL 9, 42, 55, 64 

VECT0'R 16, 11, 12, 63 
vector components 5 

defining statements 16 
in expressions 24 
subscripts of 29 
vectors 5 

as procedure arguments 20 
defining statement 16 
in C0MM0to statements 19 


33-34 



In expressions 24 
In substitution statements 31 
subscripts of 29 

voids In Input/output lists 42, 46, 51 
WRITE 44, 11, 40, 45-47, 65 
"X" fields In FORMAT 46 
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